  10 clear ;BC=150;FC=8;NT=0;if M=0M=%(20050);R=M;B=1;L=1;Q=4
  20 B=Qdiv 4;print #1,M,":",B,":",;TV=L+64;input "=",""N;if N>256goto 80
  30 if N=-4goto 160
  40 if N=-1goto 150
  50 Q=Q+1;L=L+1;if L=5L=1
  60 N=N-127;if N<0N=N-1
  70 %(M)=N;M=M+1;goto 20
  80 input T;if T=0goto 20
  90 if T=-4goto 160
 100 if T=-1goto 150
 110 &(16)=49;&(22)=136;&(21)=15;for P=R-1to -22777step 4;&(17)=%(P)div 256+127;&(18)=%(P+1)div 256+127
 120 &(19)=%(P+2)div 256+127;for D=1to (%(P+3)div 256+127)mul T;next D;if P>M-8goto 140
 130 next P
 140 &(22)=0;&(21)=0;&(16)=0;&(17)=0;&(18)=0;&(19)=0;goto 80
 150 M=M+3;Q=Q+3;L=L-1;if L=0L=4
 160 M=M-4;Q=Q-4;if M<R M=0;goto 10
 170 goto 20
